home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / msdos / dbhamlog / qsodate.prg < prev    next >
Text File  |  1991-10-18  |  3KB  |  106 lines
  1. *****  交信月日 検索 印刷*******
  2. *****     QSODATE.PRG    *******
  3. SET ORDER TO 2
  4. SET EXACT OFF
  5. GOTO TOP
  6. @ 21,0 SAY "                                                                  "
  7. @ 23,0 SAY "                                                                  "
  8. SET COLOR TO ,,BR
  9. @ 21,8 TO 23,71 DOUBLE
  10. SET COLO TO GR
  11. DO WHILE .T. && *****************************************1
  12. STORE ctod(" ") TO MDY
  13. STORE ctod(" ") TO MDYE
  14. @ 22,10 SAY "検索開始年月日 (YYMMDD)          ～　検索終了年月日"
  15. @ 22,33 SAY "" GET MDY
  16. @ 22,61 SAY "" GET MDYE
  17. READ
  18. CLEAR GET
  19.  
  20. IF DTOC(MDY)=" "
  21. RETURN
  22. ENDIF
  23.  
  24. SEEK DTOC(MDY)
  25.  
  26. IF EOF()
  27. GOTO TOP
  28. LOCATE FOR MMDDYY>MDY .AND. MMDDYY<=MDYE
  29. ENDIF
  30.  
  31. CLEAR
  32. SET CURSOR OFF
  33. STORE 6 TO Y
  34. DO WHILE .NOT. EOF() && ********************************2 
  35.  
  36. SET COLOR TO G
  37.   @ 1,4   SAY "交信月日"
  38. SET COLOR TO GR
  39.   @ 2,4   SAY MDY
  40.   @ 3,3   SAY "～"+DTOC(MDYE)
  41.  
  42. SET COLOR TO BR
  43.   @ 1,15   SAY "*************************************************"
  44.   @ 2,15   SAY "*                                               *"
  45.   @ 3,15   SAY "********************************* 交信月日.PRG **"
  46. SET COLOR TO GR
  47.   @ 2,18   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"
  48. SET COLOR TO BG
  49.     @ 4,1 SAY "月/日/年  呼出符号 電波 周波数 氏  名     住         所              JCC_G QSL"
  50. SET COLOR TO BR
  51.     @ 5,1 SAY "------------------------------------------------------------------------------"
  52. DO WHILE .T. && ***************************************3
  53.  
  54.   IF MMDDYY>MDYE
  55.     EXIT
  56.   ENDIF
  57.  
  58.  SET COLOR TO G
  59.     @ Y,1  SAY MMDDYY
  60.     @ Y,11 SAY CALL
  61.     @ Y,20 SAY WAVE
  62.     @ Y,26 SAY FREQ 
  63.     @ Y,32 SAY NAME 
  64.     @ Y,43 SAY ADDRES 
  65.     @ Y,70 SAY JCC_G
  66.     @ Y,76 SAY QSL 
  67.     STORE Y+1 TO Y
  68.      IF Y>=21
  69.       SET COLOR TO GR
  70.         WAIT
  71.         CLEAR
  72.         STORE 6 TO Y
  73.         SKIP
  74.         EXIT
  75.      ENDIF
  76.     SKIP
  77.   ENDDO && *********************************************3
  78.   
  79.   IF MMDDYY>MDYE 
  80.     EXIT
  81.   ENDIF
  82.  
  83.  ENDDO && **********************************************2
  84. SET CURSOR ON
  85. SET COLOR TO R
  86. @ 22,0 SAY " 該当 デ－タの 検索 終了 です "
  87. SET COLOR TO GR
  88.  
  89. STORE " " TO PRN
  90. @ 23,0 SAY " 検索結果を印刷しますか　？ ( Y/N )" GET PRN
  91. READ
  92. CLEAR GET
  93. IF PRN="Y"
  94. SET COLOR TO G
  95. @ 22,0 SAY "       検索 デ－タの 印刷中 です            "
  96. DO INJIDATE && ************************************************ 印刷分岐
  97. ENDIF
  98.  
  99. @ 23,0 SAY "                                            "
  100. @ 22,0 SAY "                                            "
  101. LOOP
  102. ENDDO && **********************************************1
  103. SET CURSOR ON
  104. RETURN
  105.  
  106.